home *** CD-ROM | disk | FTP | other *** search
/ Visual Intercept / Visual Intercept.iso / sheriff.z / issystfn.bas < prev    next >
BASIC Source File  |  1996-08-26  |  6KB  |  167 lines
  1. Attribute VB_Name = "IISystem"
  2. '----------------------------------------------------------------------------
  3. '   issystfn.bas is a member of the Visual Intercept Visual Basic API.
  4. '   Copyright (c) 1996 Elsinore Technologies, Inc. All rights reserved.
  5. '
  6. '   This software is protected by copyright law. Unauthorized reproduction
  7. '   or distribution of this program, or any portion of it, may result in
  8. '   severe civil or criminal penalties. If you have any questions about
  9. '   your redistribution rights, please contact Elsinore Technologies, Inc.
  10. '
  11. '   Creator: Albert J. Lin (AJL)
  12. '   History: Created 09/17/95
  13. '----------------------------------------------------------------------------
  14.  
  15.  
  16. '----------------------------------------------------------------------------
  17. ' Visual Intercept Logon Parameters Declaration:
  18. '----------------------------------------------------------------------------
  19. Public Const viPermanent = 1
  20. Public Const viPrompt = 2
  21. Public Const viSilent = 8
  22.  
  23. Public Type VILogonParameters
  24.     server                  As String   ' Data source name to log into
  25.     userID                  As String   ' Intercept userID to log on with
  26.     password                As String   ' Intercept password to log on with
  27.     systemUserID            As String   ' Data source userID to log on with (optional)
  28.     systemPassword          As String   ' Data source password to log on with (optional)
  29.            
  30.     data                    As Long     ' pointer to custom data
  31.     options                 As Long     ' options
  32.     hWnd                    As Long     ' parent window
  33. End Type
  34.  
  35. Public Type IELogonParameters
  36.     lpServer                As String
  37.     lpUserID                As String
  38.     lpPassword              As String
  39.     lpSystemUserID          As String
  40.     lpSystemPassword        As String
  41.     
  42.     lnServer                As Integer
  43.     lnUserID                As Integer
  44.     lnPassword              As Integer
  45.     lnSystemUserID          As Integer
  46.     lnSystemPassword        As Integer
  47.     
  48.     lpData                  As Long '/* pointer to custom data   */
  49.     options                 As Long '/* options                  */
  50.     hWnd                    As Integer '/* parent window            */
  51. End Type
  52.                 
  53. Public Declare Function IILogon Lib "isapi.dll" (logonParameters As IELogonParameters) As Long
  54. Public Declare Function IILogoff Lib "isapi.dll" () As Long
  55. Public Declare Function IIVersion Lib "isapi.dll" () As Long
  56.  
  57.     
  58.  Public Function VBIILogon(userParameters As VILogonParameters) As Long
  59.     Dim parameters As IELogonParameters
  60.     Dim err As Long
  61.       
  62.     Call VBIIInitLogon(parameters)
  63.     
  64.     Call VBIIPrepareLogon(parameters, userParameters)
  65.     
  66.     err = IILogon(parameters)
  67.     
  68.     If err = 0 Then
  69.         Call VBIIConvertLogon(parameters, userParameters)
  70.     End If
  71.     
  72.     VBIILogon = err
  73.     
  74. End Function
  75.  
  76.     
  77.  
  78. Public Function VBIILogoff() As Long
  79.     Dim err As Long
  80.     
  81.     err = IILogoff()
  82.     
  83.     VBIILogoff = err
  84.     
  85. End Function
  86.  
  87.  
  88.  
  89. Public Function VBIIPrepareLogon(parameters As IELogonParameters, userParameters As VILogonParameters)
  90.     
  91.     parameters.lpServer = userParameters.server
  92.     parameters.lpUserID = userParameters.userID
  93.     parameters.lpPassword = userParameters.password
  94.     parameters.lpSystemUserID = userParameters.systemUserID
  95.     parameters.lpSystemPassword = userParameters.systemPassword
  96.  
  97.     parameters.lnServer = Len(userParameters.server) + 1
  98.     parameters.lnUserID = Len(userParameters.userID) + 1
  99.     parameters.lnPassword = Len(userParameters.password) + 1
  100.     parameters.lnSystemUserID = Len(userParameters.systemUserID) + 1
  101.     parameters.lnSystemPassword = Len(userParameters.systemPassword) + 1
  102.     
  103.     parameters.lpData = userParameters.data
  104.     parameters.options = userParameters.options
  105.     parameters.hWnd = userParameters.hWnd
  106.   
  107. End Function
  108.  
  109. Public Function VBIIConvertLogon(parameters As IELogonParameters, userParameters As VILogonParameters)
  110.     
  111.     userParameters.server = parameters.lpServer
  112.     userParameters.userID = parameters.lpUserID
  113.     userParameters.password = parameters.lpPassword
  114.     userParameters.systemUserID = parameters.lpSystemUserID
  115.     userParameters.systemPassword = parameters.lpSystemPassword
  116.  
  117.     userParameters.data = parameters.lpData
  118.     userParameters.options = parameters.options
  119.     userParameters.hWnd = parameters.hWnd
  120.   
  121. End Function
  122.  
  123.  
  124.  
  125.  
  126. Public Function VBIIInitLogon(parameters As IELogonParameters)
  127.     
  128.     parameters.lnServer = lnIIServerName
  129.     parameters.lnUserID = lnIIUserID
  130.     parameters.lnPassword = lnIIPassword
  131.     parameters.lnSystemUserID = lnIIUserID
  132.     parameters.lnSystemPassword = lnIIPassword
  133.    
  134.     parameters.lpServer = String(parameters.lnServer, 0)
  135.     parameters.lpUserID = String(parameters.lnUserID, 0)
  136.     parameters.lpPassword = String(parameters.lnPassword, 0)
  137.     parameters.lpSystemUserID = String(parameters.lnSystemUserID, 0)
  138.     parameters.lpSystemPassword = String(parameters.lnSystemPassword, 0)
  139.         
  140.     parameters.lpData = 0
  141.     parameters.options = 0
  142.     parameters.hWnd = 0
  143.     
  144. End Function
  145.  
  146. Public Function VBIIPrintLogon(parameters As IELogonParameters)
  147.         
  148.     MsgBox ("parameters.lpServer = " + parameters.lpServer)
  149.     MsgBox ("parameters.lpUserID = " + parameters.lpUserID)
  150.     MsgBox ("parameters.lpPassword = " + parameters.lpPassword)
  151.     MsgBox ("parameters.lpSystemUserID = " + parameters.lpSystemUserID)
  152.     MsgBox ("parameters.lpSystemPassword = " + parameters.lpSystemPassword)
  153.     MsgBox ("parameters.lpData = " + Str$(parameters.lpData))
  154.     MsgBox ("parameters.options = " + Str$(parameters.options))
  155.     MsgBox ("parameters.hWnd = " + Str$(parameters.hWnd))
  156.     
  157.     MsgBox ("parameters.lnServer = " + Str$(parameters.lnServer))
  158.     MsgBox ("parameters.lnUserID = " + Str$(parameters.lnUserID))
  159.     MsgBox ("parameters.lnPassword = " + Str$(parameters.lnPassword))
  160.     MsgBox ("parameters.lnSystemUserID = " + Str$(parameters.lnSystemUserID))
  161.     MsgBox ("parameters.lnSystemPassword = " + Str$(parameters.lnSystemPassword))
  162.         
  163. End Function
  164.  
  165.  
  166.  
  167.